/* GUI CONVERTED from rcrp11a.p (converter v1.75) Sat Aug 12 23:00:12 2000 */
/* rcrp11a.p - Release Management Customer Schedules                    */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*F0PN*/ /*V8:ConvertMode=Report                                        */
/* REVISION: 7.3    LAST MODIFIED: 10/16/92           BY: WUG *G462*    */
/* REVISION: 7.3    LAST MODIFIED: 06/18/96           BY: tzp *G1YB*    */
/* REVISION: 8.5    LAST MODIFIED: 06/26/96           BY: taf *J0WC*    */
/* REVISION: 8.6    LAST MODIFIED: 09/13/96   BY: *K003* Vinay Nayak-Sujir */
/* REVISION: 8.6    LAST MODIFIED: 10/05/96   BY: *K003* Kieu Nguyen    */
/* REVISION: 8.6    LAST MODIFIED: 12/17/96   BY: *K03H* Vinay Nayak-Sujir */
/* REVISION: 8.6    LAST MODIFIED: 12/13/97   BY: *J20Q* Aruna Patil    */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00   BY: *N0KP* myb               */

/* SHIPPER PRINT SUBPROGRAM */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

     {mfdeclre.i}
     define input param abs_recid as recid.

/*K003*  def shared workfile work_abs_mstr like abs_mstr.        */
/*K03H* /*K003*/define shared TEMP-TABLE work_abs_mstr like abs_mstr. */
/*K03H*/ define shared workfile work_abs_mstr like abs_mstr.
     define variable par_shipfrom as character.
     define variable par_id as character.

     find abs_mstr where recid(abs_mstr) = abs_recid no-lock.

     if abs_id begins "i" then do for work_abs_mstr:
        create work_abs_mstr.


        assign
        abs_item          = abs_mstr.abs_item
        abs_qty           = abs_mstr.abs_qty
        abs_order         = abs_mstr.abs_order
/*G1YB*/    abs_lotser        = abs_mstr.abs_lotser
/*G1YB*/    abs_ref           = abs_mstr.abs_ref
/*G1YB*/    abs_site          = abs_mstr.abs_site
/*G1YB*/    abs_loc           = abs_mstr.abs_loc
/*K003*/    abs_cmtindx       = abs_mstr.abs_cmtindx
/*K003*/    abs_id            = abs_mstr.abs_id
/*K003*/    abs_shipfrom      = abs_mstr.abs_shipfrom
/*J0WC*/    abs__qad02        = abs_mstr.abs__qad02
/*J20Q*/    abs__qad03        = abs_mstr.abs__qad03
        abs_line          = abs_mstr.abs_line.

     end.

/*K003*/ if abs_id begins "i" then return.

     par_shipfrom = abs_shipfrom.
     par_id = abs_id.

     for each abs_mstr no-lock
     where abs_shipfrom = par_shipfrom
     and abs_par_id = par_id:
        {gprun.i ""rcrp11a.p"" "(input recid(abs_mstr))"}
     end.
